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-- Miscellaneous. mesa; edited by Sandman, July 17, 1978 11:47 AM 

DIRECTORY 

AllocDefs: FROM "allocdefs" USING [Alloclnfo, MakeSwappedIn] , 
AltoDefs: FROM "altodefs" USING [PageSize], 
BcdDefs: FROM "bcddefs" USING [VersionStamp] , 
ControlDefs: FROM "controldef s" USING [ 

FrameHandle, GFT, GFTIndex, GlobalFrameHandle, NullEpBase, 

NullGlobalFrame], 
FrameDefs: FROM "framedefs" USING [ 

GlobalFrame, RemoveGlobal Frame, SwapInCode, SwapOutCode, 

Val idateGlobal Frame] , 
ImageDefs: FROM "imagedefs*' USING [ 

AbortMesa, Cleanupltem, CleanupMask, CleanupProcedure, ImageHeader, 

StopMesa] , 
InlineDefs: FROM "inlinedefs" USING [BITAND, COPY], 
MiscDefs: FROM "miscdefs", 
Mopcodes: FROM "mopcodes" USING [zSTARTIO], 
NucleusDefs: FROM "nucleusdef s" USING [Resident], 
OsStaticDefs: FROM "osstaticdef s" USING [OsStatics], 

ProcessDefs: FROM "processdef s" USING [Disablelnterrupts , Enabl einterrupts] , 
SDDefs: FROM "sddefs" USING [SD, sGoingAway], 
SegmentDefs: FROM "segmentdef s" USING [ 

DefaultBase, DeleteFileSegment, FileHandle, FileSegmentAddress, 

FileSegmentHandle, NewFileSegment , Read, Swapin, Unlock], 
TrapDefs: FROM "trapdefs"; 

DEFINITIONS FROM ControlDefs; 

Miscellaneous: PROGRAM 

IMPORTS AllocDefs, FrameDefs, SegmentDefs, NucleusDefs 
EXPORTS FrameDefs, ImageDefs, MiscDefs, NucleusDefs, TrapDefs 
SHARES ControlDefs, ImageDefs ■ BEGIN 

DeletedFrame: PUBLIC PROCEDURE [gfi: GFTIndex] RETURNS [BOOLEAN] = 
BEGIN 

RETURN[GFT[gfi] = [frame: NullGlobalFrame, epbase: NullEpBase]]; 
END; 

LockCode: PUBLIC PROCEDURE [link: UNSPECIFIED] = 
BEGIN 

FrameDefs . Swap I nCode[ FrameDefs .GlobalFrame[l ink]]; 
RETURN 
END; 

UnlockCode: PUBLIC PROCEDURE [link: UNSPECIFIED] = 
BEGIN 

SegmentDef s. Unlock [FrameDefs. Global Frame[l ink] . code segment]; 
RETURN 
END; 

CodeSegment: PUBLIC PROCEDURE [frame : FrameHandle] 
RETURNS [codeseg: SegmentDef s . FileSegmentHandle] « 
BEGIN 

FrameDefs .Val idateGlobalFrame[f rame. access 1 ink]; 
RETURN[frame. access 1 ink. codes egment] 
END; 

MakeCodeResident: PUBLIC PROCEDURE [f :GlobalFrameHandle] « 
BEGIN OPEN SegmentDefs, FrameDefs; 
seg: FileSegmentHandle ' f . codesegment; 
info: AllocDef s.Al loclnfo « [unused: 0, effort: hard, direction: bottomup, 

request: initial, class: code, swapunlocked : TRUE, compact: FALSE]; 
ValidateGlobalFrame[f]; 

IF f. codesegment. lock = THEN SwapOutCode[f ] ; 
AllocDef s .MakeSwappedIn[seg , DefaultBase, info]; 
RETURN 
END; 

-- data shuffling 

SetBlock: PUBLIC PROCEDURE [p:POINTER, v:UNSPECIFIED, 1:CARDINAL] « 
BEGIN 

IF 1«0 THEN RETURN; pt ^ v; 
InlineDefs. COPY[from:p, to:p+l, nwords:l-l]; 
END; 
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-- Image Version 

ImageVersion: PUBLIC PROCEDURE RETURNS [version: BcdDef s .VersionStamp] « 
BEGIN OPEN ControlDefs, SegmentDefs; 
imagefile; FileHanclle ^ 

FrameDef s .GlobalFrame[NucleusDef s.Resident] .codesegment .f ile; 
headerseg: FileSegmentHandle <- NewFileSegment[imageFile, 1, 1, Read]; 
image: POINTER TO ImageDef s . ImageHeader ; 
sSwapIn[headerseg] ; 

image ^ FileSegmentAddress[headers8g]; 
version ^ image.prefix. version; 
Unlock[headerseg]; 
DeleteFileSegmenti headerseg]; 
RETURN 
END; 



-- Fake Modules 

DestroyFakeModule: PUBLIC PROCEDURE [f: Global FrameHandle] 

RETURNS [seg: SegmentDefs . FileSegmentHandle. offset: CARDINAL] - 

BEGIN 

seg ^ f .codesegment; 

IF ~f. shared THEN seg. class ^ other; 

FrameDef s.RemoveGlobalFrame[f]; 

ProcessDef s .Disablelnterrupts[]; 

IF f .code.swappedout THEN 

BEGIN 

f .code, swappedout <- FALSE; 

offset <- f. code. offset; 

END 
ELSE offset <- f. code, of f set - seg .VMpage*Al toDef s.PageSize; 
ProcessDefs .Enablelnterrupts[]; 
RETURN 
END; 

-- Get Network Number 

wordsPerPup: INTEGER = 280; 
Byte: TYPE - [0..255]; 

PupHeader:TYPE= MACHINE DEPENDENT RECORD [ 
eDest, eSource: Byte, 
eWord2, pupLength: INTEGER, 
transportControl , pupType: Byte, 
pupIDl, pupID2: INTEGER. 
destNet, destHost: Byte, 
destSocketl, destSocket2: INTEGER. 
sourceNet, sourceHost: Byte, 
sourceSocketl , sourceSocket2: INTEGER, 
xSum:CARDINAL]; 

Pup:TYPE= MACHINE DEPENDENT RECORD [ 
head:PupHeader, 
junk:ARRAY [0..100] OF WORD]; 

EthernetDeviceBlock: TYPE = MACHINE DEPENDENT RECORD [ 
EPLocMicrocodeStatus, EPLocHardwareStatus : Byte. 
EBLocInterruptBit: WORD, 
EELocInputFinishCount: INTEGER, 
ELLocColl isionMagic: WORD, 
EILocInputCount: INTEGER, 
EILocInputPointer: POINTER, 
EOLocOutputCount: INTEGER, 
EOLocOutputPointer: POINTER]; 

-- StartIO is Mesa bytecode used to control Ethernet interface 
StartlO: PROCEDURE [WORD] » MACHINE CODE BEGIN Mopcodes . zSTARTIO END; 
outputCommand: WORD « 1; 
inputCommand: WORD « 2; 
resetCommand: WORD « 3; 

timer: POINTER TO INTEGER - LOOPHOLE[430B]; . 
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GetNetworkNumber: PUBLIC PROCEDURE RETURNS[CARDINAL] « 
BEGIN 

myHost: Byte <- OsStaticDefs .OsStatics.SerialNumber; 
then: INTEGER; 
now: INTEGER; 

device: POINTER TO EthernetDeviceBlock <- LOOPHOLE[600B]; 
xpup: Pup; 

pup: POINTER TO Pup « Qxpup; 
gatewayRequest:PupHeader ^ [ 

eDest: 0, eSource: myHost, 

eWord2: lOOOB, pupLength: 22, 
transportControl : 0, pupType: 200B, 
pupIDl:, pupID2:, 

destNet: 0, destHost: 0, 

destSocketl: 0, destSocket2: 2, 
sourceNet: 0, sourceHost: myHost, 

sourceSocketl : 0, sourceSocket2: 2, 
xSum: 177777B]; 
device. EBLocInterruptBit ♦- 0; 
StartIO[resetCommand]; 
THROUGH [0. .2) DO 

devicet ♦- EthernetDeviceB1ock[ 
EPLocMicrocodeStatus: 0, 
EPLocHardwareStatus : 0, 
EBLocInterruptBit: 0, 
EELocInputFinishCount: 0, 
ELLocColl isionMagic: 0, 
EILocInputCount: 0, 
EILocInputPointer : pup, 
EOLocOutputCount: 13, 
EOLocOutputPo inter : 0gat away Request] ; 
StartIO[outputCommand]; 
then ♦- timert; 
DO 

IF device. EPLocHardwareStatus^O THEN 
BEGIN 

IF device. EPLocMicrocodeStatus = 
AND pup. head. eWord2 = lOOOB 

AND wordsPerPup+2-device, EELocInputFinishCount > 13 
AND pup. head. destSocketl « 
AND pup. head. destSocket2 « 2 
AND pup .head. pupType = 201B 
THEN RETURN[pup. head, sourceNet]; 
devicet <- EthernetDeviceB1ock[ 
EPLocMicrocodeStatus: 0, 
EPLocHardwareStatus: 0, 
EBLocInterruptBit: . 
EELocInputFinishCount: 0, 
ELLocCon isionMagic: 0, 
EILocInputCount: wordsPerPup+2, 
EILocInputPointer: pup, 
EOLocOutputCount: 0, 
EOLocOutputPointer: NIL]; 
StartIO[inputCommand]; 
END; 
now <- timert; 

IF now-then > 14 THEN EXIT; 
ENDLOOP; 
ENDLOOP; 
RETURN[0]; 
END; 

-- procedure lists 

UserCleanupList: POINTER TO ImageDef s .Cleanupltem <- NIL; 

AddCleanupProcedure: PUBLIC PROCEDURE [item: POINTER TO ImageDef s. Cleanupltem] « 
BEGIN 

ProcessDef s .Disablelnterrupts[]; 
Removed eanupProcedure[ item]; 
item. link <- UserCleanupList; 
UserCleanupList ♦- item; 
ProcessDef s .Enablelnterrupts[]; 
END; 

RemoveCleanupProcedure: PUBLIC PROCEDURE [item: POINTER TO ImageDef s .Cleanupltem] « 
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BEGIN 

prev, this: POINTER TO ImageDef s .Cleanupltem; 

IF UserCleanupList « NIL THEN RETURN; 

ProcessDefs.DisableInterrupts[]; 

prev <- this <- UserCleanupList; 

IF this " item TFiEN UserCleanupList ^ this. link 

ELSE UNTIL (this ^ this. link) = NIL DO 

IF this » item THEN 

BEGIN prev. link ^ this. link; EXIT END; 

prev ^ this; 

ENDLOOP; 
ProcessDefs.EnableInterrupts[]; 
END; 

UserCleanupProc: PUBLIC ImageDefs .CleanupProcedure =• 
BEGIN -~ all interrupts off if why = finish or abort 
this, next: POINTER TO ImageDef s .Cleanupltem; 
this <- UserCleanupList; 
UserCleanupList <- NIL; 
WHILE this ^ NIL DO 

next <- this. 1 ink; 

IF InlineDefs.BITAND[ImageDefs.CleanupMask[why], this. mask] ^ THEN 
this .proc[why 1 

ANY => IF why - Abort OR why = Finish THEN CONTINUE]; 

AddCleanupProcedure[this]; 

this <- next; 

ENDLOOP; 
SELECT why FROM 

Finish => ImageDef s .StopMesa[] ; 

Abort => ImageDefs, AbortMesaf]; 

ENDCASE; 
END; 

-- Main Body; 

SDDefs.SD[SDDefs.sGoingAway] <- UserCleanupProc; 

END... 



